#!/usr/bin/perl -w

#********************************************************************************
# Author: Chen Rushan
# E-Mail: chenrsster@gmail.com
# Last modified: 2009 Jul 04 12:48:44
#********************************************************************************

use strict;
use Getopt::Long;

sub usage()
{
        my ($exit_status) = @_;
        my ($i, $max) = (0, 70);
        for ($i = 0; $i < $max; $i++) { print "*"; } print "\n";

        for ($i = 0; $i < $max; $i++) { print "*"; } print "\n";
        exit $exit_status;
}

